﻿Public Class frmAgendamento
    Public CodRec, CodAge, CodSala As Integer
    Public DesAge, DesSala As String
    Dim objBLL As New BLLRecurso
    Dim tabItens As New DataTable
    Public Tipo As String
#Region "Métodos"
    Function validaItem() As Boolean
        Dim ret As Boolean
        ret = False
        For Each linha As DataRow In tabItens.Rows
            If (linha("Codigo") = objBLL.pcodigo) Then
                ret = True
            End If
        Next
        Return ret
    End Function
    Sub Carrega_GridRecursos()
        tabItens = New DataTable
        'adicionei colunas
        tabItens.Columns.Add("Codigo", GetType(String))
        tabItens.Columns.Add("Nome", GetType(String))
        tabItens.Columns.Add("Patrimonio", GetType(String))
        tabItens.Columns.Add("Obs", GetType(String))
        ' tabItens.Columns.Add("pec_dtadesao", GetType(Date))
        'vinculei datagridview
        dgRecurso.DataSource = tabItens
        dgRecurso.Columns("Codigo").HeaderText = "Codigo"
        dgRecurso.Columns("Codigo").Width = 70
        dgRecurso.Columns("nome").HeaderText = "Descrição"
        dgRecurso.Columns("nome").Width = 150
        dgRecurso.Columns("Patrimonio").HeaderText = "Patrimônio"
        dgRecurso.Columns("Patrimonio").Width = 100
        dgRecurso.Columns("Obs").HeaderText = "Obs"
        dgRecurso.Columns("Obs").Width = 150
    End Sub
    Sub Carrega_Selecao()
        Dim linha As DataRow
        linha = tabItens.NewRow
        linha("Codigo") = objBLL.pcodigo
        linha("nome") = objBLL.pnome
        linha("Patrimonio") = objBLL.ppatrimonio
        linha("Obs") = objBLL.pobs
        tabItens.Rows.Add(linha)
        tabItens.AcceptChanges()
    End Sub
#End Region
    Private Sub tsbAdicionar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbAdicionar.Click
        Dim tab As DataTable
        Tipo = "Retorno"
        frmConsultaRecurso.ShowDialog()
        If CodRec <> 0 Then
            tab = objBLL.localizar(CodRec)
            If tab.Rows.Count > 0 Then
                If (Not validaItem()) Then
                    Carrega_Selecao()
                Else
                    MessageBox.Show("Recurso já inserido.")
                End If
            Else
                MsgBox("Status do Recurso está Desativado")
            End If

        End If
        Tipo = ""

    End Sub

    Private Sub frmAgendamento_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Carrega_GridRecursos()
    End Sub

    Private Sub bLocAgendador_Click(sender As System.Object, e As System.EventArgs) Handles bLocAgendador.Click
        Tipo = "Retorno"
        Select Case cbTpAgendador.SelectedIndex
            Case 0
                frmConsultaAluno.ShowDialog()
            Case 1
                frmConsultaFuncionario.ShowDialog()
            Case 2
                frmConsultaProfessores.ShowDialog()
            Case 3
                frmConsultaSolicitante.ShowDialog()
            Case Else
                MsgBox("Selecione o Tipo de Agendador Acima", MsgBoxStyle.Information)
        End Select
        txtCodAgendador.Text = CodAge
        txtAgendador.Text = DesAge
        CodAge = Tipo = DesAge = Nothing

    End Sub
#Region "ComboBox Tipo Agendador"
    Private Sub cbTpAgendador_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles cbTpAgendador.KeyPress
        e.Handled = True
    End Sub
#End Region

    Private Sub bLocSala_Click(sender As System.Object, e As System.EventArgs) Handles bLocSala.Click
        frmConsultaSala.ShowDialog()
    End Sub

    Private Sub CheckedListBox1_Click(sender As System.Object, e As System.EventArgs) Handles CheckedListBox1.Click

    End Sub
End Class